home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_23659.txt < prev    next >
Text File  |  1990-08-14  |  10KB  |  417 lines
  1. -- card: 23659 from stack: in
  2. -- bmap block id: 23808
  3. -- flags: 4000
  4. -- background id: 20347
  5. -- name: SD Disc
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0001
  11. -- rect: left=12 top=107 right=138 bottom=139
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: Infraction
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0001
  25. -- rect: left=140 top=113 right=131 bottom=222
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Date
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0001
  39. -- rect: left=236 top=107 right=138 bottom=343
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 9
  45. -- style flags: 0
  46. -- line height: 13
  47. -- part name: Teacher
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 0001
  53. -- rect: left=344 top=107 right=138 bottom=482
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 9
  59. -- style flags: 0
  60. -- line height: 13
  61. -- part name: Administrator
  62.  
  63.  
  64. -- part 5 (field)
  65. -- low flags: 00
  66. -- high flags: 0001
  67. -- rect: left=12 top=159 right=199 bottom=139
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 9
  73. -- style flags: 0
  74. -- line height: 13
  75. -- part name: Location
  76.  
  77.  
  78. -- part 6 (field)
  79. -- low flags: 00
  80. -- high flags: 0001
  81. -- rect: left=140 top=159 right=199 bottom=235
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 9
  87. -- style flags: 0
  88. -- line height: 13
  89. -- part name: Action
  90.  
  91.  
  92. -- part 7 (field)
  93. -- low flags: 00
  94. -- high flags: 0001
  95. -- rect: left=236 top=159 right=199 bottom=482
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 9
  101. -- style flags: 0
  102. -- line height: 13
  103. -- part name: Comment
  104.  
  105.  
  106. -- part 8 (field)
  107. -- low flags: 01
  108. -- high flags: 0007
  109. -- rect: left=17 top=264 right=330 bottom=214
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 9
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Select Infraction
  118.  
  119.  
  120. -- part 9 (field)
  121. -- low flags: 01
  122. -- high flags: 0007
  123. -- rect: left=223 top=264 right=330 bottom=420
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 9
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Select Teacher
  132.  
  133.  
  134. -- part 10 (button)
  135. -- low flags: 00
  136. -- high flags: 2000
  137. -- rect: left=19 top=216 right=232 bottom=127
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: New Infraction
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   lock screen
  149.   put "1(1)" into card field "Number"
  150.   put the scroll of card field "Select Infraction" into infScroll
  151.   put ((infScroll / 16) + 1) into infLine
  152.   if hilite of button "Infraction2" then add 1 to infLine
  153.   if hilite of button "Infraction3" then add 2 to infLine
  154.   if hilite of button "Infraction4" then add 3 to infLine
  155.   put line infLine of card field "Select Infraction" into card field "Infraction"
  156.   put item 2 to 3 of the abbrev date into card field "Date"
  157.   put empty into char 2 to 3 of item 2 of card field "Date"
  158.   put the scroll of card field "Select Teacher" into teaScroll
  159.   put ((teaScroll / 16) + 1) into teaLine
  160.   if hilite of button "Teacher2" then add 1 to teaLine
  161.   if hilite of button "Teacher3" then add 2 to teaLine
  162.   if hilite of button "Teacher4" then add 3 to teaLine
  163.   put line teaLine of card field "Select Teacher" into card field "Teacher"
  164.   unlock screen
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 11 (button)
  170. -- low flags: 00
  171. -- high flags: 2000
  172. -- rect: left=168 top=216 right=232 bottom=276
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: Suspended
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   lock screen
  184.   go to next card
  185.   put background field "Name" of first card of this background into background field "Name"
  186.   put background field "Grade" of first card of this background into background field "Grade"
  187.   put background field "Homeroom" of first card of this background into background field "Homeroom"
  188.   put item 2 to 3 of the abbrev date into card field "Suspended From"
  189.   put empty into char 2 to 3 of item 2 of card field "Suspended From"
  190.   put item 2 to 3 of the abbrev date into card field "Suspended To"
  191.   put empty into char 2 to 3 of item 2 of card field "Suspended To"
  192.   unlock screen
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 12 (field)
  198. -- low flags: 01
  199. -- high flags: 0001
  200. -- rect: left=81 top=87 right=104 bottom=132
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 0
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Number
  209.  
  210.  
  211. -- part 13 (button)
  212. -- low flags: 00
  213. -- high flags: 4000
  214. -- rect: left=18 top=265 right=281 bottom=197
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: Infraction1
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   set hilite of button "Infraction2" to false
  226.   set hilite of button "Infraction3" to false
  227.   set hilite of button "Infraction4" to false
  228.   set hilite of button "Infraction1" to true
  229. end mouseUp
  230.  
  231.  
  232.  
  233. -- part 14 (button)
  234. -- low flags: 00
  235. -- high flags: 0000
  236. -- rect: left=18 top=281 right=297 bottom=197
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 0 / 0
  239. -- text alignment: 1
  240. -- font id: 0
  241. -- text size: 12
  242. -- style flags: 0
  243. -- line height: 16
  244. -- part name: Infraction2
  245. ----- HyperTalk script -----
  246. on mouseUp
  247.   set hilite of button "Infraction1" to false
  248.   set hilite of button "Infraction3" to false
  249.   set hilite of button "Infraction4" to false
  250.   set hilite of button "Infraction2" to true
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 15 (button)
  256. -- low flags: 00
  257. -- high flags: 0000
  258. -- rect: left=18 top=297 right=313 bottom=197
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Infraction3
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   set hilite of button "Infraction1" to false
  270.   set hilite of button "Infraction2" to false
  271.   set hilite of button "Infraction4" to false
  272.   set hilite of button "Infraction3" to true
  273. end mouseUp
  274.  
  275.  
  276.  
  277. -- part 16 (button)
  278. -- low flags: 00
  279. -- high flags: 0000
  280. -- rect: left=18 top=313 right=329 bottom=197
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: Infraction4
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   set hilite of button "Infraction1" to false
  292.   set hilite of button "Infraction2" to false
  293.   set hilite of button "Infraction3" to false
  294.   set hilite of button "Infraction4" to true
  295. end mouseUp
  296.  
  297.  
  298.  
  299. -- part 17 (button)
  300. -- low flags: 00
  301. -- high flags: 4000
  302. -- rect: left=224 top=265 right=281 bottom=403
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: Teacher1
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   set hilite of button "Teacher2" to false
  314.   set hilite of button "Teacher3" to false
  315.   set hilite of button "Teacher4" to false
  316.   set hilite of button "Teacher1" to true
  317. end mouseUp
  318.  
  319.  
  320.  
  321. -- part 18 (button)
  322. -- low flags: 00
  323. -- high flags: 0000
  324. -- rect: left=224 top=281 right=297 bottom=403
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 1
  328. -- font id: 0
  329. -- text size: 12
  330. -- style flags: 0
  331. -- line height: 16
  332. -- part name: Teacher2
  333. ----- HyperTalk script -----
  334. on mouseUp
  335.   set hilite of button "Teacher1" to false
  336.   set hilite of button "Teacher3" to false
  337.   set hilite of button "Teacher4" to false
  338.   set hilite of button "Teacher2" to true
  339. end mouseUp
  340.  
  341.  
  342.  
  343. -- part 19 (button)
  344. -- low flags: 00
  345. -- high flags: 0000
  346. -- rect: left=224 top=297 right=313 bottom=403
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 0 / 0
  349. -- text alignment: 1
  350. -- font id: 0
  351. -- text size: 12
  352. -- style flags: 0
  353. -- line height: 16
  354. -- part name: Teacher3
  355. ----- HyperTalk script -----
  356. on mouseUp
  357.   set hilite of button "Teacher1" to false
  358.   set hilite of button "Teacher2" to false
  359.   set hilite of button "Teacher4" to false
  360.   set hilite of button "Teacher3" to true
  361. end mouseUp
  362.  
  363.  
  364.  
  365. -- part 20 (button)
  366. -- low flags: 00
  367. -- high flags: 0000
  368. -- rect: left=224 top=313 right=329 bottom=403
  369. -- title width / last selected line: 0
  370. -- icon id / first selected line: 0 / 0
  371. -- text alignment: 1
  372. -- font id: 0
  373. -- text size: 12
  374. -- style flags: 0
  375. -- line height: 16
  376. -- part name: Teacher4
  377. ----- HyperTalk script -----
  378. on mouseUp
  379.   set hilite of button "Teacher1" to false
  380.   set hilite of button "Teacher2" to false
  381.   set hilite of button "Teacher3" to false
  382.   set hilite of button "Teacher4" to true
  383. end mouseUp
  384.  
  385.  
  386.  
  387. -- part contents for card part 8
  388. ----- text -----
  389. Fighting
  390. Insolence
  391. Poss. of illegal subs.
  392. Smoking on school property
  393.  
  394.  
  395. -- part contents for card part 9
  396. ----- text -----
  397. N/A
  398. Arness, James
  399. Cavein, Tich
  400. Dean, Bob
  401.  
  402.  
  403. -- part contents for card part 12
  404. ----- text -----
  405. None
  406.  
  407. -- part contents for background part 13
  408. ----- text -----
  409. Richter, Robert Charlie
  410.  
  411. -- part contents for background part 14
  412. ----- text -----
  413. 12
  414.  
  415. -- part contents for background part 15
  416. ----- text -----
  417. 102